/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / saveplace.elc.z / saveplace.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 64 65 6c |piled by| rms@del|
|00000020| 61 73 79 64 2e 67 6e 75 | 2e 61 69 2e 6d 69 74 2e |asyd.gnu|.ai.mit.|
|00000030| 65 64 75 20 6f 6e 20 57 | 65 64 20 4d 61 79 20 20 |edu on W|ed May  |
|00000040| 38 20 31 36 3a 33 37 3a | 32 33 20 31 39 39 36 0a |8 16:37:|23 1996.|
|00000050| 3b 3b 3b 20 66 72 6f 6d | 20 66 69 6c 65 20 2f 68 |;;; from| file /h|
|00000060| 6f 6d 65 2f 66 73 66 2f | 72 6d 73 2f 65 31 39 2f |ome/fsf/|rms/e19/|
|00000070| 6c 69 73 70 2f 73 61 76 | 65 70 6c 61 63 65 2e 65 |lisp/sav|eplace.e|
|00000080| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000090| 69 6f 6e 20 31 39 2e 33 | 30 2e 39 39 2e 35 2e 0a |ion 19.3|0.99.5..|
|000000a0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000b0| 73 69 6f 6e 20 46 53 46 | 20 32 2e 31 30 0a 3b 3b |sion FSF| 2.10.;;|
|000000c0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000d0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000e0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|000000f0| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000100| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000110| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000120| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000130| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000140| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000150| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000160| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|00000170| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000180| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 2e 32 39 22 |-version| "19.29"|
|00000190| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|000001a0| 60 73 61 76 65 70 6c 61 | 63 65 2e 65 6c 27 20 77 |`savepla|ce.el' w|
|000001b0| 61 73 20 63 6f 6d 70 69 | 6c 65 64 20 66 6f 72 20 |as compi|led for |
|000001c0| 45 6d 61 63 73 20 31 39 | 2e 32 39 20 6f 72 20 6c |Emacs 19|.29 or l|
|000001d0| 61 74 65 72 22 29 29 0a | 0a 0a 23 40 32 35 35 20 |ater")).|..#@255 |
|000001e0| 41 6c 69 73 74 20 6f 66 | 20 73 61 76 65 64 20 70 |Alist of| saved p|
|000001f0| 6c 61 63 65 73 20 74 6f | 20 67 6f 20 62 61 63 6b |laces to| go back|
|00000200| 20 74 6f 20 77 68 65 6e | 20 72 65 76 69 73 69 74 | to when| revisit|
|00000210| 69 6e 67 20 66 69 6c 65 | 73 2e 0a 45 61 63 68 20 |ing file|s..Each |
|00000220| 65 6c 65 6d 65 6e 74 20 | 6c 6f 6f 6b 73 20 6c 69 |element |looks li|
|00000230| 6b 65 20 28 46 49 4c 45 | 4e 41 4d 45 20 2e 20 50 |ke (FILE|NAME . P|
|00000240| 4f 53 49 54 49 4f 4e 29 | 3b 0a 76 69 73 69 74 69 |OSITION)|;.visiti|
|00000250| 6e 67 20 66 69 6c 65 20 | 46 49 4c 45 4e 41 4d 45 |ng file |FILENAME|
|00000260| 20 67 6f 65 73 20 61 75 | 74 6f 6d 61 74 69 63 61 | goes au|tomatica|
|00000270| 6c 6c 79 20 74 6f 20 70 | 6f 73 69 74 69 6f 6e 20 |lly to p|osition |
|00000280| 50 4f 53 49 54 49 4f 4e | 0a 72 61 74 68 65 72 20 |POSITION|.rather |
|00000290| 74 68 61 6e 20 74 68 65 | 20 62 65 67 69 6e 6e 69 |than the| beginni|
|000002a0| 6e 67 20 6f 66 20 74 68 | 65 20 62 75 66 66 65 72 |ng of th|e buffer|
|000002b0| 2e 0a 54 68 69 73 20 61 | 6c 69 73 74 20 69 73 20 |..This a|list is |
|000002c0| 73 61 76 65 64 20 62 65 | 74 77 65 65 6e 20 45 6d |saved be|tween Em|
|000002d0| 61 63 73 20 73 65 73 73 | 69 6f 6e 73 2e 1f 0a 28 |acs sess|ions...(|
|000002e0| 64 65 66 76 61 72 20 73 | 61 76 65 2d 70 6c 61 63 |defvar s|ave-plac|
|000002f0| 65 2d 61 6c 69 73 74 20 | 6e 69 6c 20 28 23 24 20 |e-alist |nil (#$ |
|00000300| 2e 20 34 38 30 29 29 0a | 23 40 33 35 39 20 2a 4e |. 480)).|#@359 *N|
|00000310| 6f 6e 2d 6e 69 6c 20 6d | 65 61 6e 73 20 61 75 74 |on-nil m|eans aut|
|00000320| 6f 6d 61 74 69 63 61 6c | 6c 79 20 73 61 76 65 20 |omatical|ly save |
|00000330| 70 6c 61 63 65 20 69 6e | 20 65 61 63 68 20 66 69 |place in| each fi|
|00000340| 6c 65 2e 0a 54 68 69 73 | 20 6d 65 61 6e 73 20 77 |le..This| means w|
|00000350| 68 65 6e 20 79 6f 75 20 | 76 69 73 69 74 20 61 20 |hen you |visit a |
|00000360| 66 69 6c 65 2c 20 70 6f | 69 6e 74 20 67 6f 65 73 |file, po|int goes|
|00000370| 20 74 6f 20 74 68 65 20 | 6c 61 73 74 20 70 6c 61 | to the |last pla|
|00000380| 63 65 0a 77 68 65 72 65 | 20 69 74 20 77 61 73 20 |ce.where| it was |
|00000390| 77 68 65 6e 20 79 6f 75 | 20 70 72 65 76 69 6f 75 |when you| previou|
|000003a0| 73 6c 79 20 76 69 73 69 | 74 65 64 20 74 68 65 20 |sly visi|ted the |
|000003b0| 73 61 6d 65 20 66 69 6c | 65 2e 0a 54 68 69 73 20 |same fil|e..This |
|000003c0| 76 61 72 69 61 62 6c 65 | 20 69 73 20 61 75 74 6f |variable| is auto|
|000003d0| 6d 61 74 69 63 61 6c 6c | 79 20 62 75 66 66 65 72 |maticall|y buffer|
|000003e0| 2d 6c 6f 63 61 6c 2e 0a | 0a 49 66 20 79 6f 75 20 |-local..|.If you |
|000003f0| 77 69 73 68 20 79 6f 75 | 72 20 70 6c 61 63 65 20 |wish you|r place |
|00000400| 69 6e 20 61 6e 79 20 66 | 69 6c 65 20 74 6f 20 61 |in any f|ile to a|
|00000410| 6c 77 61 79 73 20 62 65 | 20 61 75 74 6f 6d 61 74 |lways be| automat|
|00000420| 69 63 61 6c 6c 79 20 73 | 61 76 65 64 2c 0a 73 69 |ically s|aved,.si|
|00000430| 6d 70 6c 79 20 70 75 74 | 20 74 68 69 73 20 69 6e |mply put| this in|
|00000440| 20 79 6f 75 72 20 60 7e | 2f 2e 65 6d 61 63 73 27 | your `~|/.emacs'|
|00000450| 20 66 69 6c 65 3a 0a 0a | 28 73 65 74 71 2d 64 65 | file:..|(setq-de|
|00000460| 66 61 75 6c 74 20 73 61 | 76 65 2d 70 6c 61 63 65 |fault sa|ve-place|
|00000470| 20 74 29 1f 0a 28 64 65 | 66 76 61 72 20 73 61 76 | t)..(de|fvar sav|
|00000480| 65 2d 70 6c 61 63 65 20 | 6e 69 6c 20 28 23 24 20 |e-place |nil (#$ |
|00000490| 2e 20 2d 37 38 32 29 29 | 0a 28 6d 61 6b 65 2d 76 |. -782))|.(make-v|
|000004a0| 61 72 69 61 62 6c 65 2d | 62 75 66 66 65 72 2d 6c |ariable-|buffer-l|
|000004b0| 6f 63 61 6c 20 28 71 75 | 6f 74 65 20 73 61 76 65 |ocal (qu|ote save|
|000004c0| 2d 70 6c 61 63 65 29 29 | 0a 23 40 35 38 20 2a 4e |-place))|.#@58 *N|
|000004d0| 61 6d 65 20 6f 66 20 74 | 68 65 20 66 69 6c 65 20 |ame of t|he file |
|000004e0| 74 68 61 74 20 72 65 63 | 6f 72 64 73 20 60 73 61 |that rec|ords `sa|
|000004f0| 76 65 2d 70 6c 61 63 65 | 2d 61 6c 69 73 74 27 20 |ve-place|-alist' |
|00000500| 76 61 6c 75 65 2e 1f 0a | 28 64 65 66 76 61 72 20 |value...|(defvar |
|00000510| 73 61 76 65 2d 70 6c 61 | 63 65 2d 66 69 6c 65 20 |save-pla|ce-file |
|00000520| 28 63 6f 6e 76 65 72 74 | 2d 73 74 61 6e 64 61 72 |(convert|-standar|
|00000530| 64 2d 66 69 6c 65 6e 61 | 6d 65 20 22 7e 2f 2e 65 |d-filena|me "~/.e|
|00000540| 6d 61 63 73 2d 70 6c 61 | 63 65 73 22 29 20 28 23 |macs-pla|ces") (#|
|00000550| 24 20 2e 20 2d 31 32 33 | 30 29 29 0a 23 40 32 39 |$ . -123|0)).#@29|
|00000560| 37 20 2a 43 6f 6e 74 72 | 6f 6c 73 20 77 68 65 74 |7 *Contr|ols whet|
|00000570| 68 65 72 20 74 6f 20 6d | 61 6b 65 20 6e 75 6d 62 |her to m|ake numb|
|00000580| 65 72 65 64 20 62 61 63 | 6b 75 70 73 20 6f 66 20 |ered bac|kups of |
|00000590| 6d 61 73 74 65 72 20 73 | 61 76 65 2d 70 6c 61 63 |master s|ave-plac|
|000005a0| 65 20 66 69 6c 65 2e 0a | 49 74 20 63 61 6e 20 68 |e file..|It can h|
|000005b0| 61 76 65 20 66 6f 75 72 | 20 76 61 6c 75 65 73 3a |ave four| values:|
|000005c0| 20 74 2c 20 6e 69 6c 2c | 20 60 6e 65 76 65 72 27 | t, nil,| `never'|
|000005d0| 2c 20 61 6e 64 20 60 6e | 6f 73 70 65 63 69 61 6c |, and `n|ospecial|
|000005e0| 27 2e 20 20 54 68 65 20 | 66 69 72 73 74 0a 74 68 |'.  The |first.th|
|000005f0| 72 65 65 20 68 61 76 65 | 20 74 68 65 20 73 61 6d |ree have| the sam|
|00000600| 65 20 6d 65 61 6e 69 6e | 67 20 74 68 61 74 20 74 |e meanin|g that t|
|00000610| 68 65 79 20 64 6f 20 66 | 6f 72 20 74 68 65 20 76 |hey do f|or the v|
|00000620| 61 72 69 61 62 6c 65 0a | 60 76 65 72 73 69 6f 6e |ariable.|`version|
|00000630| 2d 63 6f 6e 74 72 6f 6c | 27 2c 20 61 6e 64 20 74 |-control|', and t|
|00000640| 68 65 20 66 69 6e 61 6c | 20 76 61 6c 75 65 20 60 |he final| value `|
|00000650| 6e 6f 73 70 65 63 69 61 | 6c 27 20 6d 65 61 6e 73 |nospecia|l' means|
|00000660| 20 6a 75 73 74 20 75 73 | 65 20 74 68 65 0a 76 61 | just us|e the.va|
|00000670| 6c 75 65 20 6f 66 20 60 | 76 65 72 73 69 6f 6e 2d |lue of `|version-|
|00000680| 63 6f 6e 74 72 6f 6c 27 | 2e 1f 0a 28 64 65 66 76 |control'|...(defv|
|00000690| 61 72 20 73 61 76 65 2d | 70 6c 61 63 65 2d 76 65 |ar save-|place-ve|
|000006a0| 72 73 69 6f 6e 2d 63 6f | 6e 74 72 6f 6c 20 28 71 |rsion-co|ntrol (q|
|000006b0| 75 6f 74 65 20 6e 6f 73 | 70 65 63 69 61 6c 29 20 |uote nos|pecial) |
|000006c0| 28 23 24 20 2e 20 2d 31 | 33 37 38 29 29 0a 23 40 |(#$ . -1|378)).#@|
|000006d0| 35 39 20 4e 6f 6e 2d 6e | 69 6c 20 6d 65 61 6e 73 |59 Non-n|il means|
|000006e0| 20 74 68 61 74 20 74 68 | 65 20 60 73 61 76 65 2d | that th|e `save-|
|000006f0| 70 6c 61 63 65 2d 66 69 | 6c 65 27 20 68 61 73 20 |place-fi|le' has |
|00000700| 62 65 65 6e 20 6c 6f 61 | 64 65 64 2e 1f 0a 28 64 |been loa|ded...(d|
|00000710| 65 66 76 61 72 20 73 61 | 76 65 2d 70 6c 61 63 65 |efvar sa|ve-place|
|00000720| 2d 6c 6f 61 64 65 64 20 | 6e 69 6c 20 28 23 24 20 |-loaded |nil (#$ |
|00000730| 2e 20 31 37 34 37 29 29 | 0a 23 40 37 30 20 4d 61 |. 1747))|.#@70 Ma|
|00000740| 78 69 6d 75 6d 20 6e 75 | 6d 62 65 72 20 6f 66 20 |ximum nu|mber of |
|00000750| 65 6e 74 72 69 65 73 20 | 74 6f 20 72 65 74 61 69 |entries |to retai|
|00000760| 6e 20 69 6e 20 74 68 65 | 20 6c 69 73 74 3b 20 6e |n in the| list; n|
|00000770| 69 6c 20 6d 65 61 6e 73 | 20 6e 6f 20 6c 69 6d 69 |il means| no limi|
|00000780| 74 2e 1f 0a 28 64 65 66 | 76 61 72 20 73 61 76 65 |t...(def|var save|
|00000790| 2d 70 6c 61 63 65 2d 6c | 69 6d 69 74 20 6e 69 6c |-place-l|imit nil|
|000007a0| 20 28 23 24 20 2e 20 31 | 38 35 34 29 29 0a 23 40 | (#$ . 1|854)).#@|
|000007b0| 34 32 38 20 54 6f 67 67 | 6c 65 20 77 68 65 74 68 |428 Togg|le wheth|
|000007c0| 65 72 20 74 6f 20 73 61 | 76 65 20 79 6f 75 72 20 |er to sa|ve your |
|000007d0| 70 6c 61 63 65 20 69 6e | 20 74 68 69 73 20 66 69 |place in| this fi|
|000007e0| 6c 65 20 62 65 74 77 65 | 65 6e 20 73 65 73 73 69 |le betwe|en sessi|
|000007f0| 6f 6e 73 2e 0a 49 66 20 | 74 68 69 73 20 6d 6f 64 |ons..If |this mod|
|00000800| 65 20 69 73 20 65 6e 61 | 62 6c 65 64 2c 20 70 6f |e is ena|bled, po|
|00000810| 69 6e 74 20 69 73 20 72 | 65 63 6f 72 64 65 64 20 |int is r|ecorded |
|00000820| 77 68 65 6e 20 79 6f 75 | 20 6b 69 6c 6c 20 74 68 |when you| kill th|
|00000830| 65 20 62 75 66 66 65 72 | 0a 6f 72 20 65 78 69 74 |e buffer|.or exit|
|00000840| 20 45 6d 61 63 73 2e 20 | 20 56 69 73 69 74 69 6e | Emacs. | Visitin|
|00000850| 67 20 74 68 69 73 20 66 | 69 6c 65 20 61 67 61 69 |g this f|ile agai|
|00000860| 6e 20 77 69 6c 6c 20 67 | 6f 20 74 6f 20 74 68 61 |n will g|o to tha|
|00000870| 74 20 70 6f 73 69 74 69 | 6f 6e 2c 0a 65 76 65 6e |t positi|on,.even|
|00000880| 20 69 6e 20 61 20 6c 61 | 74 65 72 20 45 6d 61 63 | in a la|ter Emac|
|00000890| 73 20 73 65 73 73 69 6f | 6e 2e 0a 0a 49 66 20 63 |s sessio|n...If c|
|000008a0| 61 6c 6c 65 64 20 77 69 | 74 68 20 61 20 70 72 65 |alled wi|th a pre|
|000008b0| 66 69 78 20 61 72 67 2c | 20 74 68 65 20 6d 6f 64 |fix arg,| the mod|
|000008c0| 65 20 69 73 20 65 6e 61 | 62 6c 65 64 20 69 66 20 |e is ena|bled if |
|000008d0| 61 6e 64 20 6f 6e 6c 79 | 20 69 66 0a 74 68 65 20 |and only| if.the |
|000008e0| 61 72 67 75 6d 65 6e 74 | 20 69 73 20 70 6f 73 69 |argument| is posi|
|000008f0| 74 69 76 65 2e 0a 0a 54 | 6f 20 73 61 76 65 20 70 |tive...T|o save p|
|00000900| 6c 61 63 65 73 20 61 75 | 74 6f 6d 61 74 69 63 61 |laces au|tomatica|
|00000910| 6c 6c 79 20 69 6e 20 61 | 6c 6c 20 66 69 6c 65 73 |lly in a|ll files|
|00000920| 2c 20 70 75 74 20 74 68 | 69 73 20 69 6e 20 79 6f |, put th|is in yo|
|00000930| 75 72 20 60 2e 65 6d 61 | 63 73 27 20 66 69 6c 65 |ur `.ema|cs' file|
|00000940| 3a 0a 0a 28 73 65 74 71 | 2d 64 65 66 61 75 6c 74 |:..(setq|-default|
|00000950| 20 73 61 76 65 2d 70 6c | 61 63 65 20 74 29 1f 0a | save-pl|ace t)..|
|00000960| 28 64 65 66 61 6c 69 61 | 73 20 27 74 6f 67 67 6c |(defalia|s 'toggl|
|00000970| 65 2d 73 61 76 65 2d 70 | 6c 61 63 65 20 23 5b 28 |e-save-p|lace #[(|
|00000980| 26 6f 70 74 69 6f 6e 61 | 6c 20 70 61 72 67 29 20 |&optiona|l parg) |
|00000990| 22 08 84 5c 6e 00 c1 c2 | c3 20 5c 22 87 5c 66 83 |"..\n...|. \".\f.|
|000009a0| 20 00 0d 83 18 00 0d c6 | 58 83 20 00 c1 c7 21 88 | .......|X. ...!.|
|000009b0| c8 89 14 87 c1 c9 21 88 | ca 89 14 87 22 20 5b 62 |......!.|...." [b|
|000009c0| 75 66 66 65 72 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |uffer-fi|le-name |
|000009d0| 6d 65 73 73 61 67 65 20 | 22 42 75 66 66 65 72 20 |message |"Buffer |
|000009e0| 60 25 73 27 20 6e 6f 74 | 20 76 69 73 69 74 69 6e |`%s' not| visitin|
|000009f0| 67 20 61 20 66 69 6c 65 | 22 20 62 75 66 66 65 72 |g a file|" buffer|
|00000a00| 2d 6e 61 6d 65 20 73 61 | 76 65 2d 70 6c 61 63 65 |-name sa|ve-place|
|00000a10| 20 70 61 72 67 20 30 20 | 22 4e 6f 20 70 6c 61 63 | parg 0 |"No plac|
|00000a20| 65 20 77 69 6c 6c 20 62 | 65 20 73 61 76 65 64 20 |e will b|e saved |
|00000a30| 69 6e 20 74 68 69 73 20 | 66 69 6c 65 22 20 6e 69 |in this |file" ni|
|00000a40| 6c 20 22 50 6c 61 63 65 | 20 77 69 6c 6c 20 62 65 |l "Place| will be|
|00000a50| 20 73 61 76 65 64 22 20 | 74 5d 20 33 20 28 23 24 | saved" |t] 3 (#$|
|00000a60| 20 2e 20 31 39 37 32 29 | 20 22 50 22 5d 29 0a 28 | . 1972)| "P"]).(|
|00000a70| 64 65 66 61 6c 69 61 73 | 20 27 73 61 76 65 2d 70 |defalias| 'save-p|
|00000a80| 6c 61 63 65 2d 74 6f 2d | 61 6c 69 73 74 20 23 5b |lace-to-|alist #[|
|00000a90| 6e 69 6c 20 22 08 84 07 | 00 c1 20 88 5c 6e 85 33 |nil "...|.. .\n.3|
|00000aa0| 00 c3 5c 6e 5c 66 5c 22 | 89 1d 83 19 00 c6 0d 5c |..\n\f\"|.......\|
|00000ab0| 66 5c 22 14 29 0e 07 85 | 33 00 5c 6e 0e 08 c9 3d |f\".)...|3.\n...=|
|00000ac0| 84 2b 00 60 82 2e 00 ca | 20 54 42 5c 66 42 89 14 |.+.`....| TB\fB..|
|00000ad0| 87 22 20 5b 73 61 76 65 | 2d 70 6c 61 63 65 2d 6c |." [save|-place-l|
|00000ae0| 6f 61 64 65 64 20 6c 6f | 61 64 2d 73 61 76 65 2d |oaded lo|ad-save-|
|00000af0| 70 6c 61 63 65 2d 61 6c | 69 73 74 2d 66 72 6f 6d |place-al|ist-from|
|00000b00| 2d 66 69 6c 65 20 62 75 | 66 66 65 72 2d 66 69 6c |-file bu|ffer-fil|
|00000b10| 65 2d 6e 61 6d 65 20 61 | 73 73 6f 63 20 73 61 76 |e-name a|ssoc sav|
|00000b20| 65 2d 70 6c 61 63 65 2d | 61 6c 69 73 74 20 63 65 |e-place-|alist ce|
|00000b30| 6c 6c 20 64 65 6c 71 20 | 73 61 76 65 2d 70 6c 61 |ll delq |save-pla|
|00000b40| 63 65 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 68 65 |ce major|-mode he|
|00000b50| 78 6c 2d 6d 6f 64 65 20 | 68 65 78 6c 2d 63 75 72 |xl-mode |hexl-cur|
|00000b60| 72 65 6e 74 2d 61 64 64 | 72 65 73 73 5d 20 34 5d |rent-add|ress] 4]|
|00000b70| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 61 76 |).(defal|ias 'sav|
|00000b80| 65 2d 70 6c 61 63 65 2d | 61 6c 69 73 74 2d 74 6f |e-place-|alist-to|
|00000b90| 2d 66 69 6c 65 20 23 5b | 6e 69 6c 20 22 c0 09 21 |-file #[|nil "..!|
|00000ba0| 1a 8a c3 c4 5c 6e 5c 22 | 88 c5 c6 21 71 88 65 64 |....\n\"|...!q.ed|
|00000bb0| 7c 88 c7 5c 6e 21 83 1d | 00 c8 5c 6e 21 88 65 64 ||..\n!..|..\n!.ed|
|00000bc0| 7c 88 65 62 88 c9 0e 5c | 6e 70 5c 22 88 0e 0b 84 ||.eb...\|np\"....|
|00000bd0| 33 00 cc 82 4b 00 0e 0b | cd 3d 83 3e 00 cd 82 4b |3...K...|.=.>...K|
|00000be0| 00 0e 0b ce 3d 83 4a 00 | 0e 0f 82 4b 00 d0 1e 0f |....=.J.|...K....|
|00000bf0| d1 5c 6e 21 88 d2 70 21 | 88 c3 d3 5c 6e 5c 22 2b |.\n!..p!|...\n\"+|
|00000c00| 87 22 20 5b 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |." [expa|nd-file-|
|00000c10| 6e 61 6d 65 20 73 61 76 | 65 2d 70 6c 61 63 65 2d |name sav|e-place-|
|00000c20| 66 69 6c 65 20 66 69 6c | 65 20 6d 65 73 73 61 67 |file fil|e messag|
|00000c30| 65 20 22 53 61 76 69 6e | 67 20 70 6c 61 63 65 73 |e "Savin|g places|
|00000c40| 20 74 6f 20 25 73 2e 2e | 2e 22 20 67 65 74 2d 62 | to %s..|." get-b|
|00000c50| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 22 20 2a |uffer-cr|eate " *|
|00000c60| 53 61 76 65 64 20 50 6c | 61 63 65 73 2a 22 20 66 |Saved Pl|aces*" f|
|00000c70| 69 6c 65 2d 72 65 61 64 | 61 62 6c 65 2d 70 20 69 |ile-read|able-p i|
|00000c80| 6e 73 65 72 74 2d 66 69 | 6c 65 2d 63 6f 6e 74 65 |nsert-fi|le-conte|
|00000c90| 6e 74 73 20 70 72 69 6e | 74 20 73 61 76 65 2d 70 |nts prin|t save-p|
|00000ca0| 6c 61 63 65 2d 61 6c 69 | 73 74 20 73 61 76 65 2d |lace-ali|st save-|
|00000cb0| 70 6c 61 63 65 2d 76 65 | 72 73 69 6f 6e 2d 63 6f |place-ve|rsion-co|
|00000cc0| 6e 74 72 6f 6c 20 6e 69 | 6c 20 6e 65 76 65 72 20 |ntrol ni|l never |
|00000cd0| 6e 6f 73 70 65 63 69 61 | 6c 20 76 65 72 73 69 6f |nospecia|l versio|
|00000ce0| 6e 2d 63 6f 6e 74 72 6f | 6c 20 74 20 77 72 69 74 |n-contro|l t writ|
|00000cf0| 65 2d 66 69 6c 65 20 6b | 69 6c 6c 2d 62 75 66 66 |e-file k|ill-buff|
|00000d00| 65 72 20 22 53 61 76 69 | 6e 67 20 70 6c 61 63 65 |er "Savi|ng place|
|00000d10| 73 20 74 6f 20 25 73 2e | 2e 2e 64 6f 6e 65 22 5d |s to %s.|..done"]|
|00000d20| 20 33 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 3]).(de|falias '|
|00000d30| 6c 6f 61 64 2d 73 61 76 | 65 2d 70 6c 61 63 65 2d |load-sav|e-place-|
|00000d40| 61 6c 69 73 74 2d 66 72 | 6f 6d 2d 66 69 6c 65 20 |alist-fr|om-file |
|00000d50| 23 5b 6e 69 6c 20 22 08 | 3f 85 77 00 c1 10 c2 0b |#[nil ".|?.w.....|
|00000d60| 21 1c c5 5c 66 21 83 75 | 00 8a c6 c7 0b 5c 22 88 |!..\f!.u|.....\".|
|00000d70| c8 c9 21 71 88 65 64 7c | 88 ca 5c 66 21 88 65 62 |..!q.ed||..\f!.eb|
|00000d80| 88 cb 65 64 7b 21 40 16 | 5c 66 0e 0d 83 6b 00 0e |..ed{!@.|\f...k..|
|00000d90| 0d ce 58 83 41 00 cf 16 | 5c 66 82 6b 00 0e 5c 66 |..X.A...|\f.k..\f|
|00000da0| d0 1e 11 89 1e 12 83 6a | 00 0e 11 0e 0d 59 83 5c |.......j|.....Y.\|
|00000db0| 5c 00 0e 12 cf a1 88 82 | 61 00 0e 11 54 16 11 0e |\.......|a...T...|
|00000dc0| 12 41 89 16 12 84 4c 00 | 2a d3 70 21 88 c6 d4 5c |.A....L.|*.p!...\|
|00000dd0| 66 5c 22 88 29 29 cf 87 | 22 20 5b 73 61 76 65 2d |f\".))..|" [save-|
|00000de0| 70 6c 61 63 65 2d 6c 6f | 61 64 65 64 20 74 20 65 |place-lo|aded t e|
|00000df0| 78 70 61 6e 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |xpand-fi|le-name |
|00000e00| 73 61 76 65 2d 70 6c 61 | 63 65 2d 66 69 6c 65 20 |save-pla|ce-file |
|00000e10| 66 69 6c 65 20 66 69 6c | 65 2d 72 65 61 64 61 62 |file fil|e-readab|
|00000e20| 6c 65 2d 70 20 6d 65 73 | 73 61 67 65 20 22 4c 6f |le-p mes|sage "Lo|
|00000e30| 61 64 69 6e 67 20 70 6c | 61 63 65 73 20 66 72 6f |ading pl|aces fro|
|00000e40| 6d 20 25 73 2e 2e 2e 22 | 20 67 65 74 2d 62 75 66 |m %s..."| get-buf|
|00000e50| 66 65 72 2d 63 72 65 61 | 74 65 20 22 20 2a 53 61 |fer-crea|te " *Sa|
|00000e60| 76 65 64 20 50 6c 61 63 | 65 73 2a 22 20 69 6e 73 |ved Plac|es*" ins|
|00000e70| 65 72 74 2d 66 69 6c 65 | 2d 63 6f 6e 74 65 6e 74 |ert-file|-content|
|00000e80| 73 20 72 65 61 64 2d 66 | 72 6f 6d 2d 73 74 72 69 |s read-f|rom-stri|
|00000e90| 6e 67 20 73 61 76 65 2d | 70 6c 61 63 65 2d 61 6c |ng save-|place-al|
|00000ea0| 69 73 74 20 73 61 76 65 | 2d 70 6c 61 63 65 2d 6c |ist save|-place-l|
|00000eb0| 69 6d 69 74 20 30 20 6e | 69 6c 20 31 20 63 6f 75 |imit 0 n|il 1 cou|
|00000ec0| 6e 74 20 73 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 |nt s kil|l-buffer|
|00000ed0| 20 22 4c 6f 61 64 69 6e | 67 20 70 6c 61 63 65 73 | "Loadin|g places|
|00000ee0| 20 66 72 6f 6d 20 25 73 | 2e 2e 2e 64 6f 6e 65 22 | from %s|...done"|
|00000ef0| 5d 20 34 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 4]).(d|efalias |
|00000f00| 27 73 61 76 65 2d 70 6c | 61 63 65 73 2d 74 6f 2d |'save-pl|aces-to-|
|00000f10| 61 6c 69 73 74 20 23 5b | 6e 69 6c 20 22 c0 20 19 |alist #[|nil ". .|
|00000f20| 09 85 1a 00 8a 09 40 71 | 88 5c 6e 83 13 00 c3 20 |......@q|.\n.... |
|00000f30| 88 09 41 11 29 82 03 00 | 29 87 22 20 5b 62 75 66 |..A.)...|)." [buf|
|00000f40| 66 65 72 2d 6c 69 73 74 | 20 62 75 66 2d 6c 69 73 |fer-list| buf-lis|
|00000f50| 74 20 62 75 66 66 65 72 | 2d 66 69 6c 65 2d 6e 61 |t buffer|-file-na|
|00000f60| 6d 65 20 73 61 76 65 2d | 70 6c 61 63 65 2d 74 6f |me save-|place-to|
|00000f70| 2d 61 6c 69 73 74 5d 20 | 31 5d 29 0a 28 64 65 66 |-alist] |1]).(def|
|00000f80| 61 6c 69 61 73 20 27 73 | 61 76 65 2d 70 6c 61 63 |alias 's|ave-plac|
|00000f90| 65 2d 66 69 6e 64 2d 66 | 69 6c 65 2d 68 6f 6f 6b |e-find-f|ile-hook|
|00000fa0| 20 23 5b 6e 69 6c 20 22 | 08 84 07 00 c1 20 88 c2 | #[nil "|..... ..|
|00000fb0| 0b 5c 66 5c 22 89 1d 85 | 1d 00 0e 06 84 19 00 0d |.\f\"...|........|
|00000fc0| 41 62 88 c7 89 16 08 29 | 87 22 20 5b 73 61 76 65 |Ab.....)|." [save|
|00000fd0| 2d 70 6c 61 63 65 2d 6c | 6f 61 64 65 64 20 6c 6f |-place-l|oaded lo|
|00000fe0| 61 64 2d 73 61 76 65 2d | 70 6c 61 63 65 2d 61 6c |ad-save-|place-al|
|00000ff0| 69 73 74 2d 66 72 6f 6d | 2d 66 69 6c 65 20 61 73 |ist-from|-file as|
|00001000| 73 6f 63 20 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |soc buff|er-file-|
|00001010| 6e 61 6d 65 20 73 61 76 | 65 2d 70 6c 61 63 65 2d |name sav|e-place-|
|00001020| 61 6c 69 73 74 20 63 65 | 6c 6c 20 61 66 74 65 72 |alist ce|ll after|
|00001030| 2d 66 69 6e 64 2d 66 69 | 6c 65 2d 66 72 6f 6d 2d |-find-fi|le-from-|
|00001040| 72 65 76 65 72 74 2d 62 | 75 66 66 65 72 20 74 20 |revert-b|uffer t |
|00001050| 73 61 76 65 2d 70 6c 61 | 63 65 5d 20 34 5d 29 0a |save-pla|ce] 4]).|
|00001060| 28 64 65 66 61 6c 69 61 | 73 20 27 73 61 76 65 2d |(defalia|s 'save-|
|00001070| 70 6c 61 63 65 2d 6b 69 | 6c 6c 2d 65 6d 61 63 73 |place-ki|ll-emacs|
|00001080| 2d 68 6f 6f 6b 20 23 5b | 6e 69 6c 20 22 c0 20 88 |-hook #[|nil ". .|
|00001090| 09 85 09 00 c2 20 87 22 | 20 5b 73 61 76 65 2d 70 |..... ."| [save-p|
|000010a0| 6c 61 63 65 73 2d 74 6f | 2d 61 6c 69 73 74 20 73 |laces-to|-alist s|
|000010b0| 61 76 65 2d 70 6c 61 63 | 65 2d 6c 6f 61 64 65 64 |ave-plac|e-loaded|
|000010c0| 20 73 61 76 65 2d 70 6c | 61 63 65 2d 61 6c 69 73 | save-pl|ace-alis|
|000010d0| 74 2d 74 6f 2d 66 69 6c | 65 5d 20 31 5d 29 0a 28 |t-to-fil|e] 1]).(|
|000010e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 c3 23 |byte-cod|e "....#|
|000010f0| 88 c0 c4 c5 5c 22 88 c0 | c6 c7 5c 22 88 c8 c9 21 |....\"..|..\"...!|
|00001100| 87 22 20 5b 61 64 64 2d | 68 6f 6f 6b 20 66 69 6e |." [add-|hook fin|
|00001110| 64 2d 66 69 6c 65 2d 68 | 6f 6f 6b 73 20 73 61 76 |d-file-h|ooks sav|
|00001120| 65 2d 70 6c 61 63 65 2d | 66 69 6e 64 2d 66 69 6c |e-place-|find-fil|
|00001130| 65 2d 68 6f 6f 6b 20 74 | 20 6b 69 6c 6c 2d 65 6d |e-hook t| kill-em|
|00001140| 61 63 73 2d 68 6f 6f 6b | 20 73 61 76 65 2d 70 6c |acs-hook| save-pl|
|00001150| 61 63 65 2d 6b 69 6c 6c | 2d 65 6d 61 63 73 2d 68 |ace-kill|-emacs-h|
|00001160| 6f 6f 6b 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 2d |ook kill|-buffer-|
|00001170| 68 6f 6f 6b 20 73 61 76 | 65 2d 70 6c 61 63 65 2d |hook sav|e-place-|
|00001180| 74 6f 2d 61 6c 69 73 74 | 20 70 72 6f 76 69 64 65 |to-alist| provide|
|00001190| 20 73 61 76 65 70 6c 61 | 63 65 5d 20 34 29 0a    | savepla|ce] 4). |
+--------+-------------------------+-------------------------+--------+--------+